Attribute VB_Name = "Global"
Public Const c_NameEditor As String = "Editor"
Public Const c_NameBlock As String = "ShapeBlock"
Public Const c_NamePort As String = "ShapePort"
Public Const c_NameActivator As String = "ShapeActivator"
Public Const c_NameEvent As String = "ShapeEvent"
Public Const c_NameInput As String = "ShapeInput"
Public Const c_NameOutput As String = "ShapeOutput"
Public Const c_NameConnector As String = "ShapeConnector"
Public Const c_PictureControl As String = "VB.PictureBox"
Public Const c_LineControl As String = "VB.Line"
Public Const c_TextBoxControl As String = "VB.TextBox"

Public Const c_WidthBlock As Long = 2000
Public Const c_HeightBlock As Long = 1000
Public Const c_WidthPort As Long = 300
Public Const c_HeightPort As Long = 300
Public Const c_ResizeArea = 100
Public Const c_WidthConnector = 3

Public m_Editor As Editor
Public m_ActiveBlock As Block
Public m_SelectBlock As Block
Public m_SelectPort As Object

Private m_Index As Long

Enum MenuIndex
    inEditorMenu = 0
    inBlockMenu = 1
    inActivatorMenu = 2
    inEventMenu = 3
    inInputMenu = 4
    inOutputMenu = 5
End Enum

Enum Axis
    axisXU = 0
    axisXD = 1
    axisYU = 2
    axisYD = 3
End Enum

Enum PortType
    prtActivator = 0
    prtEvent = 1
    prtInput = 2
    prtOutput = 3
End Enum

Type Point
    X As Long
    Y As Long
End Type

Public Function NewIndex() As Long
    m_Index = m_Index + 1
    NewIndex = m_Index
End Function
